home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m4.d64 / threedox.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  164 lines
  1. 10 POKE53280,9:POKE53281,7
  2. 20 PRINT"":PRINTCHR$(14)
  3. 100 REM ***** THREEDOX ****************
  4. 110 REM ***** COMMODORE 64 ************
  5. 120 REM ***** D.HALL 4/12/82 **********
  6. 1000 PRINT"[147]";:FORI=1TO39:PRINT"[255]";:NEXT:PRINT:FORI=1TO22
  7. 1005 PRINT"[255]";SPC(37);"[255]":NEXT
  8. 1010 FORI=1TO39:PRINT"[255]";:NEXT:PRINT"[212][200][210][197][197][196][207][216]
  9. 1020 [153]"ATN CHR$ATN(null)VALCLOSE(null)ASCCLOSE(null)(null)(null)CHR$LEFT$(null)(null)CLOSEATN(null)STR$CLOSELEN(null)(null)(null)(null)VAL(null)CLOSECLOSE
  10. 1030 PRINT"[201][206][160][212][200][210][197][197] [196][201][205][197][206][211][201][207][206][211][160][201][206][160][193][160][195][213][194][197][160]
  11. 1035 [153]"4*4*4":[153]""
  12. 1036 [153]"ATN(null)(null) (null)(null)(null)CLOSELEFT$ATN(null)VALCLOSE(null)(null)CLOSESTR$(null)CLOSERIGHT$(null)CLOSEASCRIGHT$(null)(null)CLOSEATN
  13. 1037 PRINT"[195][207][205][208][204][197][212][197][160][210][207][215],[195][207][204][213][205][206][160][207][210] [196][201][193][199][207][206][193][204]
  14. 1038 [153]"(null)RIGHT$(null)LEFT$CLOSE(null)'(null),RIGHT$(null)CLOSEATN(null)(null)CLOSESTR$RIGHT$(null)VAL(null)(null)RIGHT$(null)(null)!!!!
  15. 1040 PRINT"[196][207] [217][207][213][160][206][197][197][196][160][201][206][211][212][210][213][195][212][201][207][206][211]";:INPUTA$:IFMID$(A$,1,1)="Y"THEN1100
  16. 1050 IFMID$(A$,1,1)="N"THEN1200
  17. 1060 PRINT"[208][204][197][193][211][197][160][212][217][208][197][160][217][197][211][160][207][210][160][206][207][145][145][145][145]":GOTO1040
  18. 1100 PRINT"[147]INSTRUCTIONS"
  19. 1110 PRINT"[201]'[205][160][207][206][204][217][160][193] [204][201][212][212][204][197][160][195][207][205][208][213][212][197][210][160][211][207][160][201]
  20. 1120 [153]"(null)RIGHT$CHR$LEFT$(null)CLOSE(null)VALVAL(null)CLOSEATNCLOSE(null)RIGHT$(null)(null)(null)VALCLOSE(null)(null)(null)(null) .(null)(null)CLOSE(null)(null)(null)VAL(null)
  21. 1130 PRINT"[193][210][197][160][211][200][207][215][206] [193][211][160][193][160][212][200][210][197][197][160][196][201][199][201][212][160][206]O.XYZ:-
  22. 1131 [153]"X=PEEK(null)ATN(null)STR$,Y=(null)(null)(null)CLOSEATN(null)STR$CLOSEZ=LEN(null)(null)(null)(null)(null)
  23. 1185 PRINT"[202][213][211][212][160][212][217][208][197][160][201][206][160][212][200][197][160][201][206][198][207][210][205][193][212][201][207][206]
  24. 1186 [153]"ATN(null)(null)VALSTR$CLOSEASC(null)(null)CLOSEATN(null)STR$CLOSELEFT$RIGHT$(null)CLOSERETURN ASC(null)(null)CLOSE(null)(null)(null)(null)
  25. 1187 PRINT"[205][207][214][197][211]:[193][212][160][212][200][197][160][197][206][196][160][200][201][212][160][212][200][197][160]'S' [212][207][160][211][212][207][208]
  26. 1195 [153]"HIT ANY KEY WHEN READY"
  27. 1196 [161]A$:[139]A$[178]""[167]1196
  28. 1197 [153]"LOAD";
  29. 1200 C$[178]" X   O#   *":W[178]23:[134]X(64),L(76),M1%(76),M2%(76),M3%(76),M4%(76),Y(15)
  30. 1220 [153]"LOAD":[129]B[178]1[164]4:[141]4000:[130]
  31. 1230 [150][165]L(A)[178]X(M1%(A))[170]X(M2%(A))[170]X(M3%(A))[170]X(M4%(A))
  32. 1240 [150][165]M(A)[178]A[170]110[170]6[172][181]((A[171]1)[173]4)[170]60[172][181]((A[171]1)[173]16)
  33. 1250 [129]I[178]0[164]15:[135] Y(I):[130]:[129]J[178]1[164]76:[135]M1%(J),M2%(J),M3%(J)
  34. 1255 [135]M4%(J):[130]
  35. 1270 [141]12000
  36. 1275 [153]"DO YOU WANT TO":[153][163]W);"GO FIRST":[153][163]W);:[133]A$:[139][202](A$,1,1)[178]"Y"[167]1340K
  37. 1280 [139][202](A$,1,1)[178]"N"[167]1500
  38. 1290 [137]1270
  39. 1330 [141]11020
  40. 1340 [141]8000:[141]12000:[141]3000
  41. 1450 M[178]16[172](B[171]1)[170]4[172](R[171]1)[170]C:[139]X(M)[178]0[167]1490
  42. 1460 [141]12000:[153]"THAT SQUARE'S":[153][163]W);"FULL,TRY AGAIN":[137]1330
  43. 1490 X(M)[178]1:[141]11000
  44. 1500 [141]13000:[141]15000:[141]2340:S[178]0:T[178]0:[129]I[178]1[164]76:[139]L(I)[179][177]4[167]1610
  45. 1540 [141]12000:[153]"CONGRATS!!WAIT":[153][163]W);"YOU WIN"
  46. 1545 J[178]1:[137]14000
  47. 1610 [139]L(I)[179][177]15[167]1630
  48. 1620 S[178]I
  49. 1630 [139]L(I)[177][179]3[167]1650
  50. 1640 T[178]I
  51. 1650 [130]:[139]S[178]0[167]1750
  52. 1670 I[178]S:M[178]M1%(I):[139]X(M)[178]0[167]1710
  53. 1672 M[178]M2%(I):[139]X(M)[178]0[167]1710
  54. 1674 M[178]M3%(I):[139]X(M)[178]0[167]1710
  55. 1676 M[178]M4%(I)
  56. 1710 X(M)[178]5:[141]13000:[153]"I MOVE TO";[165]M(M):[153][163]W);"AND WIN"
  57. 1720 J[178]5:[137]14000
  58. 1750 [139]T[178]0[167]2070
  59. 1760 I[178]T:M[178]M1%(I):[139]X(M)[178]0[167]1800
  60. 1762 M[178]M2%(I):[139]X(M)[178]0[167]1800
  61. 1764 M[178]M3%(I):[139]X(M)[178]0[167]1800
  62. 1766 M[178]M4%(I)
  63. 1800 X(M)[178]5:[141]13000:[153]"NICE TRY":[153][163]W);"I MOVE TO";[165]M(M):[137]1330
  64. 1840 [129]I[178]1[164]76:L[178][165]L(I):[139][181](L)[179][177]2[167]1920
  65. 1870 [139]L[177]2[167]2780
  66. 1890 Q[178]M1%(I):[139]X(Q)[178]0[167]X(Q)[178].125
  67. 1892 Q[178]M2%(I):[139]X(Q)[178]0[167]X(Q)[178].125
  68. 1894 Q[178]M3%(I):[139]X(Q)[178]0[167]X(Q)[178].125
  69. 1896 Q[178]M4%(I):[139]X(Q)[178]0[167]X(Q)[178].125
  70. 1920 [130]
  71. 1930 [141]2340:[129]I[178]1[164]76:[139]L(I)[178].5[167]2880
  72. 1960 [139]L(I)[178]1.375[167]2880
  73. 1970 [130]:[137]2460
  74. 1990 [129]Z[178]0[164]15:[139]X(Y(Z))[178]0[167]2030
  75. 2010 [130]:[137]2380
  76. 2030 M[178]Y(Z):X(M)[178]5:[141]13000:[153]"I MOVE TO";[165]M(M):[137]1330
  77. 2070 [129]I[178]1[164]76:L[178][165]L(I):[139][181](L)[179][177]10[167]2150
  78. 2100 [139]L[177]10[167]2780
  79. 2110 [139]X(M1%(I))[178]0[167]X(M1%(I))[178].125
  80. 2112 [139]X(M2%(I))[178]0[167]X(M2%(I))[178].125
  81. 2114 [139]X(M3%(I))[178]0[167]X(M3%(I))[178].125
  82. 2116 [139]X(M4%(I))[178]0[167]X(M4%(I))[178].125
  83. 2150 [130]I:[141]2340:[129]I[178]1[164]76:[139]L(I)[178].5[167]2880
  84. 2160 [139]L(I)[178]5.375[167]2880
  85. 2170 [130]I:[141]3000:[137]1840
  86. 2340 [129]S[178]1[164]76:L(S)[178][165]L(S):[130]:[142]
  87. 2380 [129]M[178]1[164]64:[139]X(M)[177]0[167]2430
  88. 2390 X(M)[178]5:[141]13000:[153]"MY MOVE"[165]M(M):[137] 1330
  89. 2430 [130]M:[141]12000:[153]"IT'S A DRAWWAIT":[141]11020:[137]14000
  90. 2460 [129]K[178]1[164]72[169]4:P[178][181](L(K))[170][181](L(K[170]1))[170][181](L(K[170]2))[170][181](L(K[170]3))
  91. 2480 [139]P[178]4[176]P[178]9[167]2520
  92. 2490 [130]:[141]3000:[137]1990
  93. 2520 S[178].125
  94. 2530 [129]I[178]K[164]K[170]3:[137]2890
  95. 2550 [130]I:S[178]0:[137]2530
  96. 2780 Q[178]M1%(I):[139]X(Q)[178].125[167][137]17000
  97. 2782 Q[178]M2%(I):[139]X(Q)[178].125[167][137]17000
  98. 2784 Q[178]M3%(I):[139]X(Q)[178].125[167][137]17000
  99. 2786 Q[178]M4%(I):[139]X(Q)[178].125[167][137]17000
  100. 2850 [137]1330
  101. 2880 S[178].125
  102. 2890 [139]I[171][181](I[173]4)[172]4[177]1[167]2950
  103. 2930 Q[178]M1%(I):[139]X(Q)[178]S[167]2970
  104. 2940 Q[178]M4%(I):[139]X(Q)[178]S[167]2970
  105. 2945 [137]2550
  106. 2950 Q[178]M2%(I):[139]X(Q)[178]S[167]2970
  107. 2960 Q[178]M3%(I):[139]X(Q)[178]S[167]2970
  108. 2965 [137]2550
  109. 2970 X(Q)[178]5:[141]13000:[137]17050
  110. 3000 [129]I[178]1[164]64:X(I)[178][181](X(I)):[130]:[142]
  111. 4000 X[178]1:N[178](B[171]1)[172]16:[153]"":[139]B[178]2[176]B[178]4[167]X[178]X[170]12
  112. 4005 [139]B[178]3[176]B[178]4[167][153]"";
  113. 4010 [153][163]X);"BOARD";B:[153][163]X);"ORTAN=TAN=TAN=TAN^":[129]I1[178]N[164]N[170]12[169]4:[153][163]X);"(null)";
  114. 4020 [129]I2[178]1[164]4:[153][202](C$,X(I1[170]I2)[170]1,1);"(null)";:[130]:[153]
  115. 4030 [139]I1[178]N[170]12[167][153][163]X);"/TAN>TAN>TAN>TANEXP":[142]
  116. 4035 [153][163]X);"-TAN(null)TAN(null)TAN(null)TAN<":[130]
  117. 5000 [131]1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43
  118. 5010 [131]1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27
  119. 5020 [131]28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51
  120. 5030 [131]52,53,54,55,56,57,58,59,60,61,62,63,64
  121. 5040 [131]1,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52,5,21,37,53,6,22,38,54,7,23
  122. 5050 [131]39,55,8,24,40,56,9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,60,13,29
  123. 5060 [131]45,61,14,30,46,62,15,31,47,63,16,32,48,64,1,5,9,13,17,21,25,29,33,37,41
  124. 5070 [131]45,49,53,57,61,2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
  125. 5075 [131]3,7,11,15
  126. 5080 [131]19,23,27,31,35,39,43,47,51,55,59,63,4,8,12,16,20,24,28,32,36,40,44,48
  127. 5090 [131]52,56,60,64,1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64,13,10,7,4,29
  128. 6000 [131]26,23,20,45,42,39,36,61,58,55,52,1,21,41,61,2,22,42,62,3,23,43,63,4,24
  129. 6010 [131]44,64,49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16,1,18,35,52,5,22
  130. 6020 [131]39,56,9,26,43,60,13,30,47,64,49,34,19,4,53,38,23,8,57,42,27,12,61,46,31
  131. 6030 [131]16,1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
  132. 8000 [153]"";[163]W);"YOUR MOVE":[153][163]W);"PEEK(null)ATN(null)STR$WAIT "
  133. 8005 [153][163]W);:[133]"  .CMDCMDCMD";C:B[178]C:[141]8500
  134. 8010 [153][163]W)"(null)(null)(null)WAIT   ":[153][163]W);:[133]"  .CMDCMDCMD";C:R[178]C:[141]8500
  135. 8020 [153][163]W)"LEN(null)(null)(null)(null)(null)WAIT":[153][163]W);:[133]"  .CMDCMDCMD";C:[141]8500
  136. 8030 [139]PR[178]1[167][153][163]W);"GET IT RIGHT!":PR[178]0:[137]8000
  137. 8035 [153][163]W);"              ":[142]
  138. 8500 [139]C[177]4[176]C[179]1[176]C[179][177][181](C)[167]PR[178]1
  139. 8510 [142]
  140. 11000 [139]B[178]0[167]11020
  141. 11010 [137]4000
  142. 11020 B[178][181]([165]M(M)[173]100):[137]4000
  143. 12000 [153]"";:[129]Q1[178]1[164]5:[153][163]W);"                ":[130]:[153]"";[163]W);:[142]
  144. 13000 [153]"";:[129]Q1[178]1[164]5:[153][163]W);"                ":[130]
  145. 13010 [153]"ONONONONON";[163]W);:[142]
  146. 14000 [161]A$:[139]A$[178]"S"[167][151]59468,12:[153]"LOAD":[137]18000
  147. 14005 [141]16000:[137]14000
  148. 15000 Y[178][181]([187](TI)[172]6[170]1):[145]Y[137]15010,15020,15030,15050,15060,15070
  149. 15010 [153]"RIGHT$'(null) (null)LEFT$RIGHT$(null)(null)RIGHT$(null)CHR$":[142]
  150. 15020 [153]"GOOD GAME,EH?":[142]
  151. 15030 [153]"RIGHT$'(null)(null) (null)(null)VALVALSTR$":[153][163]W);"(null)(null)CLOSE(null)(null)(null)(null)":[142]
  152. 15050 [153]"(null)LEFT$ATN(null)CLOSEATNPEEK(null)(null)(null) ":[153][163]W);"LANDER!!WAIT":[142]
  153. 15060 [153]"RIGHT$'(null)CLOSEATNCLOSEPEEKRIGHT$(null)CLOSE(null)(null)(null)(null)":[142]
  154. 15070 [153]"GETTING WORRIED":[142]
  155. 16000 B[178]0:M[178]M1%(I):X(M)[178]J[170]J1:[141]11020:M[178]M2%(I):X(M)[178]J[170]J1:[141]11020
  156. 16005 M[178]M3%(I):X(M)[178]J[170]J1:[141]11020
  157. 16010 M[178]M4%(I):X(M)[178]J[170]J1:[141]11020:[139]J1[178]0[167]J1[178]5:[142]
  158. 16020 J1[178]0:[142]
  159. 17000 X(Q)[178]5:[139]L[179]5[167]17040
  160. 17020 [141]13000:[153]"GET OUT OF THIS":[137]17050
  161. 17040 [141]13000:[153]"JUST IN TIME"
  162. 17050 [153][163]W);"MY MOVE";[165]M(Q):M[178]Q:[141]11020:[137]1330
  163. 18000 [128]
  164.